object frmChangeManag: TfrmChangeManag
  Left = 965
  Top = 677
  BorderStyle = bsDialog
  Caption = #1057#1084#1077#1085#1072' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072' / '#1091#1087#1088#1072#1074#1083#1103#1102#1097#1077#1081' '#1082#1086#1084#1087#1072#1085#1080#1080
  ClientHeight = 290
  ClientWidth = 307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  DesignSize = (
    307
    290)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 299
    Height = 161
    Caption = ' '#1055#1072#1088#1072#1084#1077#1090#1088#1099' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 20
      Width = 63
      Height = 13
      Caption = #1044#1072#1090#1072' '#1089#1084#1077#1085#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 68
      Width = 58
      Height = 13
      Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 12
      Top = 116
      Width = 124
      Height = 13
      Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object deChangeDate: TDBDateTimeEditEh
      Left = 12
      Top = 36
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 0
      Visible = True
      OnExit = deChangeDateExit
    end
    object lcbSuppliers: TDBLookupComboboxEh
      Left = 12
      Top = 84
      Width = 266
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_Suppliers
      ParentFont = False
      TabOrder = 1
      Visible = True
    end
    object lcbManagers: TDBLookupComboboxEh
      Left = 12
      Top = 132
      Width = 266
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_Managers
      ParentFont = False
      TabOrder = 2
      Visible = True
    end
  end
  object bbSave: TBitBtn
    Left = 106
    Top = 261
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    ModalResult = 1
    TabOrder = 1
    OnClick = bbSaveClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDA895ACD7B5AB48586B99092B78B8CB7
      8989B78A8AB68B8CB78581D68B6FD97F50DA7D46FFFFFFFFFFFFFFFFFFD27A53
      FFC366EF995DD0C3C7D2CBCBD3CACBD7CECED6CECED5D0D3D4C1BCFDB88BFF9C
      45FF9626DC7E47FFFFFFFFFFFFD17A54FFB560ED935DD4C1C3DA5F44D79F95DB
      D7DADCCECDDBD3D4D8BDB9F39368FE8D3DFF8E29DC7A44FFFFFFFFFFFFD07651
      FFBA66EF9A65DDD1D2E63F1CE19C90E5EDEFE5DFDDE6E6E8E0CAC4F28153FD8C
      3DFF9732DB7842FFFFFFFFFFFFD07650FFBB69F09F6CE6E6EAE59586E7CBC7ED
      FAFEEDF1F5EEFAFEE6D8D4F06C3DFD893BFF9B3ADB7741FFFFFFFFFFFFD0734E
      FFBF70F39B67E8D2D0EAE9E7EBDFDCEBD9D5EBD9D6ECE1DAE7C0B4EF5220FC85
      36FF9F3FDB763FFFFFFFFFFFFFD0724BFFC47AFDA25EF7985AF8995AF89656F8
      9652F8934FF8934EF98E46FC8034FF903CFF9F43DB743DFFFFFFFFFFFFD16E44
      FFCE92F8D8BDF8D7B9F7D4B4F5D2B2F2CFAFF1CDADF1C9AAEFC9A8ECCCACE8C3
      A8FBAE65DC7035FFFFFFFFFFFFD16C3FFED39DF5F8F8FCFFFFFCFFFFFCFFFFFA
      FDFFFAFBFDFAF7F9F9F4F4F9F2F3E9E6EAF2B273DD6F31FFFFFFFFFFFFD16C3F
      FDD29BF6F5F2FFFFFFFFFFFFFFFCFCFFF9F6FFF7F2FFF3EEFFF0E9FFF1EBF0E5
      E4F2B271DD6F2FFFFFFFFFFFFFD16B3DFCD29CF4F3F1FFFFFFFFFCFBB1B1FFB1
      B1FFB1B1FFB1B1FFB1B1FFFFF3EFECE5E4F0B172DD6C2EFFFFFFFFFFFFD16B3D
      FBD29CF3F1F0FFFEFEFFF9F57878FF7878FF7878FF7878FF7878FFFFF6F3EBE5
      E5F1B274DE6D2FFFFFFFFFFFFFD46D3DFAD49FF2EFF0FFFEFFFFF8F60000C400
      00C40000C40000C40000C4FFFCFBECEAEAE0A467D66525FFFFFFFFFFFFD06637
      FFE1A6F7FAF3FFFFFFFFFFFAFFFFF5FFFCF2FFFEF6FFFFFAFFFFFDFFFFFFF1F5
      EEE7B271D36021FFFFFFFFFFFFFFFFFFC75B37C46953C46955C36853C36752C2
      6751C26652C26652C16652C16652BD624DC7572DFFFFFFFFFFFF}
  end
  object bbExit: TBitBtn
    Left = 206
    Top = 261
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #1042#1099#1093#1086#1076
    ModalResult = 2
    TabOrder = 2
    OnClick = bbExitClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFF2999D51F98D252ACDDFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6BB8E26BB8E25AB0DF31BEE731
      E7FF29D3F729BEE71FA4DF52ACDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E539CFEF39CFF729C3EF39C7E700D3F700CBF708D7FF18D3F742E3FF21A6
      DEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7BC0E521CFFF005C50005C5039C3E700
      D7F700CFF710DBFF08CBF708CBF742D3EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E518CFFF005C50005C5039C3E700D7FF00D3F710DBFF08CFF708CBF742D7
      EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF7BC0E518CFFF005C50005C5031BEE708
      DBFF00D3F710DBFF08CFF708CFF742D7EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E518CFFF005C50005C5031BEE74AC3BD005C5010DFFF08D3F708CFF742D7
      EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF7BC0E518CFFF005C50005C5031BAE773
      B694F7B26310DFFF08D3FF08CFF742D7EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E518CFFF005C50005C5031BAE708E3FF18D3E710DFFF08D7FF08D3FF42D7
      EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF7BC0E518CFFF005C50005C5029BAE710
      E7FF00DFFF10DFFF08D7FF08D3FF42D7EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E518CFFF005C50005C5029B6E710EBFF00DFFF10E3FF08DBFF08D7FF39D7
      EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF7BC0E518CFFF005C50005C5029B6E729
      DFE7C6C38CA5CFB57BC7B54AC3BD39D7EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E518CFFF005C50005C5029B2DE31DFDEFFCF94FFFBE7FFFFF7E7CBA539D7
      EF7BC0E5FFFFFFFFFFFFFFFFFFFFFFFF7BC0E518CFFF005C50005C5021AEDE18
      EFFF18DBE74ACBBD6BC7B57BBEA539D7F77BC0E5FFFFFFFFFFFFFFFFFFFFFFFF
      7BC0E539DFFF29D3FF29D3FF109AD652E7F752F7FF52F7FF52F7FF4AF3FF4ADB
      F77BC0E5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF37A3D737A6DD37A6DD319DD731
      9DD7319DD731A0D736A6DC2DAAE10F95D77BC0E5FFFFFFFFFFFF}
  end
  object rgSaldo: TRadioGroup
    Left = 4
    Top = 168
    Width = 299
    Height = 89
    Caption = ' '#1057#1072#1083#1100#1076#1086' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      #1053#1077' '#1087#1077#1088#1077#1085#1086#1089#1080#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1085#1072' '#1085#1086#1074#1099#1081' '#1076#1086#1075#1086#1074#1086#1088
      #1055#1077#1088#1077#1085#1086#1089#1080#1090#1100' '#1090#1086#1083#1100#1082#1086' '#1087#1077#1088#1077#1087#1083#1072#1090#1091' '#1085#1072' '#1085#1086#1074#1099#1081' '#1076#1086#1075#1086#1074#1086#1088
      #1055#1077#1088#1077#1085#1086#1089#1080#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1085#1072' '#1085#1086#1074#1099#1081' '#1076#1086#1075#1086#1074#1086#1088)
    ParentFont = False
    TabOrder = 3
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 140
    Top = 16
  end
  object ds_Suppliers: TpFIBDataSet
    SelectSQL.Strings = (
      'select distinct v.id, v.name'
      '  from dogovors d'
      '  join rtariffs t on t.service_id = d.service_id'
      '  join v_supplier v on v.id = t.supplier_id'
      '  where d.id = :pdogovor_id'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 176
    Top = 16
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_SuppliersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppliersNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object ds_Managers: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    MANAG as name'
      'FROM'
      '    RMANAG '
      'where closed_rs = 0'
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 176
    Top = 48
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ManagersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ManagersNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object QSetSupplier: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure'
      '    PROC_DOGOVOR_SET_SUPPLIER(:PDOGOVOR_ID,'
      '    :PSUPPLIER_ID,'
      '    :PDATE,'
      '    :PMOVE_BALANCE,'
      '    :PMANAG_ID) '
      '')
    Left = 176
    Top = 80
  end
  object dsc_Suppliers: TDataSource
    DataSet = ds_Suppliers
    Left = 208
    Top = 16
  end
  object dsc_Managers: TDataSource
    DataSet = ds_Managers
    Left = 208
    Top = 48
  end
end
